/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_8 / issue_03 / slideshow / !SlideShow / Shell

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 19 f4 20 3e 20 | 3c 42 61 73 69 63 24 50 |..... > |<Basic$P|
|00000010| 61 74 68 3e 53 68 65 6c | 6c 0d 00 14 2d f1 22 52 |ath>Shel|l...-."R|
|00000020| 49 53 43 4f 53 20 56 65 | 72 73 69 6f 6e 20 33 2e |ISCOS Ve|rsion 3.|
|00000030| 30 30 2f 30 30 34 2c 20 | 33 72 64 20 4d 61 79 20 |00/004, |3rd May |
|00000040| 31 39 38 39 2e 22 0d 00 | 15 07 ea 20 85 0d 00 16 |1989."..|... ....|
|00000050| 3b ee 20 85 20 f1 22 54 | 68 69 73 20 76 65 72 73 |;. . ."T|his vers|
|00000060| 69 6f 6e 20 69 73 20 69 | 6e 74 65 6e 64 65 64 20 |ion is i|ntended |
|00000070| 74 6f 20 6f 6e 6c 79 20 | 72 75 6e 20 6f 6e 20 52 |to only |run on R|
|00000080| 49 53 43 4f 53 22 3a e0 | 0d 00 17 08 e7 20 c8 98 |ISCOS":.|..... ..|
|00000090| 0d 00 18 07 f7 20 85 0d | 00 19 05 e0 0d 00 1e 05 |..... ..|........|
|000000a0| 3a 0d 00 28 3e f4 20 4d | 61 69 6e 20 70 72 6f 63 |:..(>. M|ain proc|
|000000b0| 65 64 75 72 65 3a 20 61 | 73 73 65 6d 62 6c 65 20 |edure: a|ssemble |
|000000c0| 63 6f 64 65 2c 20 72 65 | 61 64 20 65 6e 76 69 72 |code, re|ad envir|
|000000d0| 6f 6e 6d 65 6e 74 20 76 | 61 72 69 61 62 6c 65 0d |onment v|ariable.|
|000000e0| 00 32 15 dd 20 f2 41 73 | 73 65 6d 62 6c 65 5f 53 |.2.. .As|semble_S|
|000000f0| 68 65 6c 6c 0d 00 3c 2c | ea 20 41 24 2c 50 25 2c |hell..<,|. A$,P%,|
|00000100| 4f 25 2c 49 25 3a de 20 | 4f 25 20 31 30 30 30 2c |O%,I%:. |O% 1000,|
|00000110| 53 68 65 6c 6c 5f 53 74 | 72 69 6e 67 20 32 35 36 |Shell_St|ring 256|
|00000120| 0d 00 46 16 c8 99 22 4f | 53 5f 47 65 74 45 6e 76 |..F..."O|S_GetEnv|
|00000130| 22 20 b8 20 41 24 0d 00 | 50 24 c8 95 c0 41 24 2c |" . A$..|P$...A$,|
|00000140| 31 29 3c 3e 22 20 22 80 | a9 41 24 3c 3e 30 20 41 |1)<>" ".|.A$<>0 A|
|00000150| 24 3d c1 41 24 2c 32 29 | 3a ce 0d 00 5a 1c c8 95 |$=.A$,2)|:...Z...|
|00000160| c0 41 24 2c 31 29 3d 22 | 20 22 20 41 24 3d c1 41 |.A$,1)="| " A$=.A|
|00000170| 24 2c 32 29 3a ce 0d 00 | 64 1a c8 95 c2 41 24 2c |$,2):...|d....A$,|
|00000180| 31 29 3d 22 20 22 20 41 | 24 3d c0 41 24 29 3a ce |1)=" " A|$=.A$):.|
|00000190| 0d 00 6e 26 e7 a4 53 68 | 65 6c 6c 5f 53 74 72 69 |..n&..Sh|ell_Stri|
|000001a0| 6e 67 5f 55 43 28 c0 41 | 24 2c 35 29 29 3d 22 2d |ng_UC(.A|$,5))="-|
|000001b0| 51 55 49 54 22 8c 0d 00 | 78 2e 41 24 3d c1 41 24 |QUIT"...|x.A$=.A$|
|000001c0| 2c 37 29 3a c8 95 c0 41 | 24 2c 31 29 3c 3e 22 20 |,7):...A|$,1)<>" |
|000001d0| 22 80 a9 41 24 3c 3e 30 | 20 41 24 3d c1 41 24 2c |"..A$<>0| A$=.A$,|
|000001e0| 32 29 3a ce 0d 00 82 1c | c8 95 c0 41 24 2c 31 29 |2):.....|...A$,1)|
|000001f0| 3d 22 20 22 20 41 24 3d | c1 41 24 2c 32 29 3a ce |=" " A$=|.A$,2):.|
|00000200| 0d 00 8c 05 cd 0d 00 96 | 11 53 68 65 6c 6c 5f 45 |........|.Shell_E|
|00000210| 6e 76 24 3d 41 24 0d 00 | a0 0d e3 49 25 3d 30 b8 |nv$=A$..|...I%=0.|
|00000220| 32 88 32 0d 00 aa 09 50 | 25 3d 4f 25 0d 00 b4 0c |2.2....P|%=O%....|
|00000230| 5b 20 4f 50 54 20 49 25 | 0d 00 be 0f 2e 53 68 65 |[ OPT I%|.....She|
|00000240| 6c 6c 5f 43 61 6c 6c 0d | 00 c8 25 20 4d 4f 56 20 |ll_Call.|..% MOV |
|00000250| 20 20 52 39 2c 52 30 20 | 3b 73 61 76 65 20 73 74 |  R9,R0 |;save st|
|00000260| 72 69 6e 67 20 61 64 64 | 72 65 73 73 0d 00 d2 05 |ring add|ress....|
|00000270| 3a 0d 00 dc 10 20 4d 4f | 56 20 20 20 52 30 2c 23 |:.... MO|V   R0,#|
|00000280| 30 0d 00 e6 10 20 4d 4f | 56 20 20 20 52 31 2c 23 |0.... MO|V   R1,#|
|00000290| 30 0d 00 f0 10 20 4d 4f | 56 20 20 20 52 32 2c 23 |0.... MO|V   R2,#|
|000002a0| 30 0d 00 fa 10 20 4d 4f | 56 20 20 20 52 33 2c 23 |0.... MO|V   R3,#|
|000002b0| 32 0d 01 04 10 20 4d 4f | 56 20 20 20 52 34 2c 23 |2.... MO|V   R4,#|
|000002c0| 30 0d 01 0e 10 20 4d 4f | 56 20 20 20 52 35 2c 23 |0.... MO|V   R5,#|
|000002d0| 30 0d 01 18 10 20 4d 4f | 56 20 20 20 52 36 2c 23 |0.... MO|V   R6,#|
|000002e0| 30 0d 01 22 10 20 4d 4f | 56 20 20 20 52 37 2c 23 |0..". MO|V   R7,#|
|000002f0| 30 0d 01 2c 16 20 53 57 | 49 20 20 20 22 4f 53 5f |0..,. SW|I   "OS_|
|00000300| 53 65 74 45 6e 76 22 0d | 01 36 37 20 53 54 4d 46 |SetEnv".|.67 STMF|
|00000310| 44 20 52 31 33 21 2c 7b | 52 30 2d 52 37 2c 20 52 |D R13!,{|R0-R7, R|
|00000320| 31 32 7d 20 3b 20 53 61 | 76 65 20 42 41 53 49 43 |12} ; Sa|ve BASIC|
|00000330| 27 73 20 65 6e 76 69 72 | 6f 6e 6d 65 6e 74 0d 01 |'s envir|onment..|
|00000340| 40 10 20 4d 4f 56 20 20 | 20 52 30 2c 23 30 0d 01 |@. MOV  | R0,#0..|
|00000350| 4a 10 20 4d 4f 56 20 20 | 20 52 31 2c 23 30 0d 01 |J. MOV  | R1,#0..|
|00000360| 54 10 20 4d 4f 56 20 20 | 20 52 32 2c 23 30 0d 01 |T. MOV  | R2,#0..|
|00000370| 5e 10 20 4d 4f 56 20 20 | 20 52 33 2c 23 30 0d 01 |^. MOV  | R3,#0..|
|00000380| 68 17 20 53 57 49 20 20 | 20 22 4f 53 5f 43 6f 6e |h. SWI  | "OS_Con|
|00000390| 74 72 6f 6c 22 0d 01 72 | 32 20 53 54 4d 46 44 20 |trol"..r|2 STMFD |
|000003a0| 52 31 33 21 2c 7b 52 30 | 2d 52 33 7d 20 20 20 20 |R13!,{R0|-R3}    |
|000003b0| 20 3b 20 53 61 76 65 20 | 42 41 53 49 43 27 73 20 | ; Save |BASIC's |
|000003c0| 63 6f 6e 74 72 6f 6c 0d | 01 7c 12 20 4d 4f 56 20 |control.|.|. MOV |
|000003d0| 20 20 52 30 2c 23 26 31 | 30 0d 01 86 10 20 4d 4f |  R0,#&1|0.... MO|
|000003e0| 56 20 20 20 52 31 2c 23 | 30 0d 01 90 10 20 4d 4f |V   R1,#|0.... MO|
|000003f0| 56 20 20 20 52 32 2c 23 | 30 0d 01 9a 44 20 53 57 |V   R2,#|0...D SW|
|00000400| 49 20 20 20 22 58 4f 53 | 5f 43 68 61 6e 67 65 45 |I   "XOS|_ChangeE|
|00000410| 6e 76 69 72 6f 6e 6d 65 | 6e 74 22 20 3b 20 49 67 |nvironme|nt" ; Ig|
|00000420| 6e 6f 72 65 20 65 72 72 | 6f 72 2c 20 6d 61 79 62 |nore err|or, mayb|
|00000430| 65 20 41 72 74 68 75 72 | 20 31 2e 32 30 0d 01 a4 |e Arthur| 1.20...|
|00000440| 39 20 53 54 4d 46 44 20 | 52 31 33 21 2c 7b 52 31 |9 STMFD |R13!,{R1|
|00000450| 2c 52 32 7d 20 20 20 20 | 20 3b 20 53 61 76 65 20 |,R2}    | ; Save |
|00000460| 42 41 53 49 43 27 73 20 | 75 70 63 61 6c 6c 20 68 |BASIC's |upcall h|
|00000470| 61 6e 64 6c 65 72 0d 01 | ae 05 3a 0d 01 b8 32 20 |andler..|..:...2 |
|00000480| 4c 44 52 20 20 20 52 33 | 2c 5b 52 31 34 2c 23 32 |LDR   R3|,[R14,#2|
|00000490| 38 5d 20 20 20 20 20 3b | 20 4d 61 67 69 63 20 75 |8]     ;| Magic u|
|000004a0| 73 65 66 75 6c 20 76 61 | 6c 75 65 20 21 0d 01 c2 |seful va|lue !...|
|000004b0| 42 20 4c 44 52 20 20 20 | 52 33 2c 5b 52 38 2c 52 |B LDR   |R3,[R8,R|
|000004c0| 33 5d 20 20 20 20 20 20 | 20 3b 20 41 64 64 72 65 |3]      | ; Addre|
|000004d0| 73 73 20 6f 66 20 63 75 | 72 72 65 6e 74 20 65 6e |ss of cu|rrent en|
|000004e0| 64 20 6f 66 20 77 6f 72 | 6b 20 73 70 61 63 65 0d |d of wor|k space.|
|000004f0| 01 cc 45 20 53 54 4d 46 | 44 20 52 31 33 21 2c 7b |..E STMF|D R13!,{|
|00000500| 52 33 2c 52 39 2c 52 31 | 34 7d 20 3b 20 53 61 76 |R3,R9,R1|4} ; Sav|
|00000510| 65 20 70 61 72 61 6d 65 | 74 65 72 73 20 6e 65 65 |e parame|ters nee|
|00000520| 64 65 64 20 74 6f 20 72 | 65 73 74 6f 72 65 20 77 |ded to r|estore w|
|00000530| 6f 72 6c 64 0d 01 d6 3e | 20 53 55 42 20 20 20 52 |orld...>| SUB   R|
|00000540| 39 2c 52 31 33 2c 23 31 | 30 32 34 20 20 20 20 20 |9,R13,#1|024     |
|00000550| 3b 20 41 64 64 72 65 73 | 73 20 6f 66 20 77 68 65 |; Addres|s of whe|
|00000560| 72 65 20 74 6f 20 63 6f | 70 79 20 63 6f 64 65 20 |re to co|py code |
|00000570| 74 6f 0d 01 e0 10 20 4d | 4f 56 20 20 20 52 35 2c |to.... M|OV   R5,|
|00000580| 52 39 0d 01 ea 17 20 41 | 44 52 20 20 20 52 36 2c |R9.... A|DR   R6,|
|00000590| 53 68 65 6c 6c 5f 4a 6f | 62 0d 01 f4 1b 20 41 44 |Shell_Jo|b.... AD|
|000005a0| 52 20 20 20 52 34 2c 53 | 68 65 6c 6c 5f 4a 6f 62 |R   R4,S|hell_Job|
|000005b0| 5f 45 6e 64 0d 01 fe 0f | 2e 53 68 65 6c 6c 5f 43 |_End....|.Shell_C|
|000005c0| 6f 70 79 0d 02 08 44 20 | 4c 44 52 20 20 20 52 32 |opy...D |LDR   R2|
|000005d0| 2c 5b 52 36 5d 2c 23 34 | 20 20 20 20 20 20 20 3b |,[R6],#4|       ;|
|000005e0| 20 43 6f 70 79 20 74 68 | 65 20 61 73 6d 20 63 6f | Copy th|e asm co|
|000005f0| 72 65 20 70 72 6f 67 72 | 61 6d 20 74 6f 20 74 68 |re progr|am to th|
|00000600| 65 20 73 74 61 63 6b 0d | 02 12 15 20 53 54 52 20 |e stack.|... STR |
|00000610| 20 20 52 32 2c 5b 52 35 | 5d 2c 23 34 0d 02 1c 10 |  R2,[R5|],#4....|
|00000620| 20 43 4d 50 20 20 20 52 | 36 2c 52 34 0d 02 26 15 | CMP   R|6,R4..&.|
|00000630| 20 42 43 43 20 20 20 53 | 68 65 6c 6c 5f 43 6f 70 | BCC   S|hell_Cop|
|00000640| 79 0d 02 30 34 20 4d 4f | 56 20 20 20 50 43 2c 52 |y..04 MO|V   PC,R|
|00000650| 39 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 20 43 |9       |     ; C|
|00000660| 61 6c 6c 20 63 6f 70 69 | 65 64 20 73 68 65 6c 6c |all copi|ed shell|
|00000670| 20 63 6f 64 65 0d 02 3a | 05 3a 0d 02 44 0e 2e 53 | code..:|.:..D..S|
|00000680| 68 65 6c 6c 5f 4a 6f 62 | 0d 02 4e 41 20 4c 44 52 |hell_Job|..NA LDR|
|00000690| 20 20 20 52 32 2c 5b 52 | 33 2c 23 2d 34 5d 21 20 |   R2,[R|3,#-4]! |
|000006a0| 20 20 20 20 3b 20 4e 6f | 77 20 63 6f 70 79 20 42 |    ; No|w copy B|
|000006b0| 41 53 49 43 27 73 20 77 | 6f 72 6b 73 70 61 63 65 |ASIC's w|orkspace|
|000006c0| 20 75 70 73 74 61 69 72 | 73 0d 02 58 17 20 53 54 | upstair|s..X. ST|
|000006d0| 52 20 20 20 52 32 2c 5b | 52 39 2c 23 2d 34 5d 21 |R   R2,[|R9,#-4]!|
|000006e0| 0d 02 62 14 20 43 4d 50 | 20 20 20 52 33 2c 23 26 |..b. CMP|   R3,#&|
|000006f0| 38 30 30 30 0d 02 6c 14 | 20 42 48 49 20 20 20 53 |8000..l.| BHI   S|
|00000700| 68 65 6c 6c 5f 4a 6f 62 | 0d 02 76 14 20 53 54 4d |hell_Job|..v. STM|
|00000710| 46 44 20 52 31 33 21 2c | 7b 52 39 7d 0d 02 80 05 |FD R13!,|{R9}....|
|00000720| 3a 0d 02 8a 18 20 41 44 | 52 20 20 20 52 30 2c 53 |:.... AD|R   R0,S|
|00000730| 68 65 6c 6c 5f 45 78 69 | 74 0d 02 94 10 20 4d 4f |hell_Exi|t.... MO|
|00000740| 56 20 20 20 52 31 2c 52 | 39 0d 02 9e 10 20 4d 4f |V   R1,R|9.... MO|
|00000750| 56 20 20 20 52 32 2c 23 | 30 0d 02 a8 10 20 4d 4f |V   R2,#|0.... MO|
|00000760| 56 20 20 20 52 33 2c 23 | 32 0d 02 b2 10 20 4d 4f |V   R3,#|2.... MO|
|00000770| 56 20 20 20 52 34 2c 23 | 30 0d 02 bc 10 20 4d 4f |V   R4,#|0.... MO|
|00000780| 56 20 20 20 52 35 2c 23 | 30 0d 02 c6 10 20 4d 4f |V   R5,#|0.... MO|
|00000790| 56 20 20 20 52 36 2c 23 | 30 0d 02 d0 10 20 4d 4f |V   R6,#|0.... MO|
|000007a0| 56 20 20 20 52 37 2c 23 | 30 0d 02 da 16 20 53 57 |V   R7,#|0.... SW|
|000007b0| 49 20 20 20 22 4f 53 5f | 53 65 74 45 6e 76 22 0d |I   "OS_|SetEnv".|
|000007c0| 02 e4 19 20 41 44 52 20 | 20 20 52 30 2c 53 68 65 |... ADR |  R0,She|
|000007d0| 6c 6c 5f 45 72 72 6f 72 | 0d 02 ee 1a 20 41 44 52 |ll_Error|.... ADR|
|000007e0| 20 20 20 52 31 2c 53 68 | 65 6c 6c 5f 42 75 66 66 |   R1,Sh|ell_Buff|
|000007f0| 65 72 0d 02 f8 10 20 4d | 4f 56 20 20 20 52 32 2c |er.... M|OV   R2,|
|00000800| 23 30 0d 03 02 10 20 4d | 4f 56 20 20 20 52 33 2c |#0.... M|OV   R3,|
|00000810| 23 30 0d 03 0c 17 20 53 | 57 49 20 20 20 22 4f 53 |#0.... S|WI   "OS|
|00000820| 5f 43 6f 6e 74 72 6f 6c | 22 0d 03 16 12 20 4d 4f |_Control|".... MO|
|00000830| 56 20 20 20 52 30 2c 23 | 26 31 30 0d 03 20 1a 20 |V   R0,#|&10.. . |
|00000840| 41 44 52 20 20 20 52 31 | 2c 53 68 65 6c 6c 5f 55 |ADR   R1|,Shell_U|
|00000850| 70 43 61 6c 6c 0d 03 2a | 10 20 4d 56 4e 20 20 20 |pCall..*|. MVN   |
|00000860| 52 32 2c 23 30 0d 03 34 | 44 20 53 57 49 20 20 20 |R2,#0..4|D SWI   |
|00000870| 22 58 4f 53 5f 43 68 61 | 6e 67 65 45 6e 76 69 72 |"XOS_Cha|ngeEnvir|
|00000880| 6f 6e 6d 65 6e 74 22 20 | 3b 20 49 67 6e 6f 72 65 |onment" |; Ignore|
|00000890| 20 65 72 72 6f 72 2c 20 | 6d 61 79 62 65 20 41 72 | error, |maybe Ar|
|000008a0| 74 68 75 72 20 31 2e 32 | 30 0d 03 3e 05 3a 0d 03 |thur 1.2|0..>.:..|
|000008b0| 48 1c 20 53 54 52 20 20 | 20 52 31 33 2c 53 68 65 |H. STR  | R13,She|
|000008c0| 6c 6c 5f 4a 6f 62 5f 45 | 6e 64 0d 03 52 18 20 4c |ll_Job_E|nd..R. L|
|000008d0| 44 52 20 20 20 52 30 2c | 5b 52 31 33 2c 23 34 2a |DR   R0,|[R13,#4*|
|000008e0| 32 5d 0d 03 5c 13 20 41 | 44 44 20 20 20 52 30 2c |2]..\. A|DD   R0,|
|000008f0| 52 30 2c 52 39 0d 03 66 | 17 20 53 55 42 20 20 20 |R0,R9..f|. SUB   |
|00000900| 52 30 2c 52 30 2c 23 26 | 38 30 30 30 0d 03 70 13 |R0,R0,#&|8000..p.|
|00000910| 20 53 57 49 20 20 20 22 | 4f 53 5f 43 4c 49 22 0d | SWI   "|OS_CLI".|
|00000920| 03 7a 05 3a 0d 03 84 0f | 2e 53 68 65 6c 6c 5f 45 |.z.:....|.Shell_E|
|00000930| 78 69 74 0d 03 8e 11 20 | 4d 4f 56 20 20 20 72 30 |xit.... |MOV   r0|
|00000940| 2c 20 23 30 0d 03 98 05 | 3a 0d 03 a2 11 2e 53 68 |, #0....|:.....Sh|
|00000950| 65 6c 6c 5f 43 6f 6d 6d | 6f 6e 0d 03 ac 1e 20 53 |ell_Comm|on.... S|
|00000960| 54 52 20 20 20 72 30 2c | 20 53 68 65 6c 6c 5f 45 |TR   r0,| Shell_E|
|00000970| 72 72 6f 72 57 6f 72 64 | 0d 03 b6 1c 20 4c 44 52 |rrorWord|.... LDR|
|00000980| 20 20 20 52 31 33 2c 53 | 68 65 6c 6c 5f 4a 6f 62 |   R13,S|hell_Job|
|00000990| 5f 45 6e 64 0d 03 c0 1f | 20 4c 44 4d 46 44 20 52 |_End....| LDMFD R|
|000009a0| 31 33 21 2c 7b 52 38 2c | 52 39 2c 52 31 30 2c 52 |13!,{R8,|R9,R10,R|
|000009b0| 31 34 7d 0d 03 ca 05 3a | 0d 03 d4 17 20 4c 44 4d |14}....:|.... LDM|
|000009c0| 46 44 20 52 31 33 21 2c | 7b 52 31 2d 52 32 7d 0d |FD R13!,|{R1-R2}.|
|000009d0| 03 de 12 20 4d 4f 56 20 | 20 20 52 30 2c 23 26 31 |... MOV |  R0,#&1|
|000009e0| 30 0d 03 e8 21 20 53 57 | 49 20 20 20 22 4f 53 5f |0...! SW|I   "OS_|
|000009f0| 43 68 61 6e 67 65 45 6e | 76 69 72 6f 6e 6d 65 6e |ChangeEn|vironmen|
|00000a00| 74 22 0d 03 f2 17 20 4c | 44 4d 46 44 20 52 31 33 |t".... L|DMFD R13|
|00000a10| 21 2c 7b 52 30 2d 52 33 | 7d 0d 03 fc 17 20 53 57 |!,{R0-R3|}.... SW|
|00000a20| 49 20 20 20 22 4f 53 5f | 43 6f 6e 74 72 6f 6c 22 |I   "OS_|Control"|
|00000a30| 0d 04 06 1c 20 4c 44 4d | 46 44 20 52 31 33 21 2c |.... LDM|FD R13!,|
|00000a40| 7b 52 30 2d 52 37 2c 20 | 52 31 32 7d 0d 04 10 16 |{R0-R7, |R12}....|
|00000a50| 20 53 57 49 20 20 20 22 | 4f 53 5f 53 65 74 45 6e | SWI   "|OS_SetEn|
|00000a60| 76 22 0d 04 1a 05 3a 0d | 04 24 14 20 4d 4f 56 20 |v"....:.|.$. MOV |
|00000a70| 20 20 52 31 2c 23 26 38 | 30 30 30 0d 04 2e 12 2e |  R1,#&8|000.....|
|00000a80| 53 68 65 6c 6c 5f 52 65 | 73 74 6f 72 65 0d 04 38 |Shell_Re|store..8|
|00000a90| 15 20 4c 44 52 20 20 20 | 52 32 2c 5b 52 38 5d 2c |. LDR   |R2,[R8],|
|00000aa0| 23 34 0d 04 42 15 20 53 | 54 52 20 20 20 52 32 2c |#4..B. S|TR   R2,|
|00000ab0| 5b 52 31 5d 2c 23 34 0d | 04 4c 10 20 43 4d 50 20 |[R1],#4.|.L. CMP |
|00000ac0| 20 20 52 31 2c 52 39 0d | 04 56 18 20 42 43 43 20 |  R1,R9.|.V. BCC |
|00000ad0| 20 20 53 68 65 6c 6c 5f | 52 65 73 74 6f 72 65 0d |  Shell_|Restore.|
|00000ae0| 04 60 1d 20 4c 44 52 20 | 20 20 52 30 2c 53 68 65 |.`. LDR |  R0,She|
|00000af0| 6c 6c 5f 45 72 72 6f 72 | 57 6f 72 64 0d 04 6a 10 |ll_Error|Word..j.|
|00000b00| 20 54 45 51 20 20 20 52 | 30 2c 23 30 0d 04 74 1d | TEQ   R|0,#0..t.|
|00000b10| 20 42 49 43 45 51 53 20 | 50 43 2c 52 31 34 2c 23 | BICEQS |PC,R14,#|
|00000b20| 26 31 30 30 30 30 30 30 | 30 0d 04 7e 1c 20 84 52 |&1000000|0..~. .R|
|00000b30| 4e 45 53 20 50 43 2c 52 | 31 34 2c 23 26 31 30 30 |NES PC,R|14,#&100|
|00000b40| 30 30 30 30 30 0d 04 88 | 05 3a 0d 04 92 3d 2e 53 |00000...|.:...=.S|
|00000b50| 68 65 6c 6c 5f 55 70 43 | 61 6c 6c 20 3b 20 4a 75 |hell_UpC|all ; Ju|
|00000b60| 73 74 20 73 74 6f 70 20 | 74 68 65 6d 20 67 65 74 |st stop |them get|
|00000b70| 74 69 6e 67 20 74 6f 20 | 42 41 53 49 43 27 73 20 |ting to |BASIC's |
|00000b80| 68 61 6e 64 6c 65 72 0d | 04 9c 11 20 4d 4f 56 20 |handler.|... MOV |
|00000b90| 20 20 50 43 2c 52 31 34 | 0d 04 a6 05 3a 0d 04 b0 |  PC,R14|....:...|
|00000ba0| 10 2e 53 68 65 6c 6c 5f | 45 72 72 6f 72 0d 04 ba |..Shell_|Error...|
|00000bb0| 1f 20 41 44 52 20 20 20 | 72 30 2c 20 53 68 65 6c |. ADR   |r0, Shel|
|00000bc0| 6c 5f 42 75 66 66 65 72 | 20 2b 20 34 0d 04 c4 17 |l_Buffer| + 4....|
|00000bd0| 20 42 20 20 20 20 20 53 | 68 65 6c 6c 5f 43 6f 6d | B     S|hell_Com|
|00000be0| 6d 6f 6e 0d 04 ce 05 3a | 0d 04 d8 2e 2e 53 68 65 |mon....:|.....She|
|00000bf0| 6c 6c 5f 42 75 66 66 65 | 72 20 3b 20 4d 75 73 74 |ll_Buffe|r ; Must|
|00000c00| 20 62 65 20 77 69 74 68 | 69 6e 20 63 6f 70 69 65 | be with|in copie|
|00000c10| 64 20 61 72 65 61 0d 04 | e2 0b 20 45 51 55 44 20 |d area..|.. EQUD |
|00000c20| 30 0d 04 ec 13 20 45 51 | 55 44 20 26 31 32 33 34 |0.... EQ|UD &1234|
|00000c30| 35 36 37 38 0d 04 f6 13 | 20 45 51 55 53 20 c4 31 |5678....| EQUS .1|
|00000c40| 32 38 2c bd 31 33 29 0d | 05 00 13 20 45 51 55 53 |28,.13).|... EQUS|
|00000c50| 20 c4 31 32 38 2c bd 31 | 33 29 0d 05 0a 05 3a 0d | .128,.1|3)....:.|
|00000c60| 05 14 14 2e 53 68 65 6c | 6c 5f 45 72 72 6f 72 57 |....Shel|l_ErrorW|
|00000c70| 6f 72 64 0d 05 1e 0b 20 | 45 51 55 44 20 30 0d 05 |ord.... |EQUD 0..|
|00000c80| 28 12 2e 53 68 65 6c 6c | 5f 4a 6f 62 5f 45 6e 64 |(..Shell|_Job_End|
|00000c90| 0d 05 32 0b 20 45 51 55 | 44 20 30 0d 05 3c 05 5d |..2. EQU|D 0..<.]|
|00000ca0| 0d 05 46 05 ed 0d 05 50 | 05 e1 0d 05 5a 05 3a 0d |..F....P|....Z.:.|
|00000cb0| 05 64 27 f4 20 43 61 6c | 6c 20 76 69 61 20 43 4c |.d'. Cal|l via CL|
|00000cc0| 49 20 77 69 74 68 20 72 | 65 74 75 72 6e 20 74 6f |I with r|eturn to|
|00000cd0| 20 42 41 53 49 43 0d 05 | 6e 10 dd 20 f2 53 68 65 | BASIC..|n.. .She|
|00000ce0| 6c 6c 28 41 24 29 0d 05 | 78 2a ea 41 25 3a 41 25 |ll(A$)..|x*.A%:A%|
|00000cf0| 3d 53 68 65 6c 6c 5f 53 | 74 72 69 6e 67 3a 24 41 |=Shell_S|tring:$A|
|00000d00| 25 3d 41 24 3a d6 53 68 | 65 6c 6c 5f 43 61 6c 6c |%=A$:.Sh|ell_Call|
|00000d10| 0d 05 82 05 e1 0d 05 8c | 05 3a 0d 05 96 2e f4 20 |........|.:..... |
|00000d20| 46 75 6e 63 74 69 6f 6e | 20 74 6f 20 63 6f 6e 76 |Function| to conv|
|00000d30| 65 72 74 20 73 74 72 69 | 6e 67 20 74 6f 20 75 70 |ert stri|ng to up|
|00000d40| 70 65 72 20 63 61 73 65 | 0d 05 a0 1a dd 20 a4 53 |per case|..... .S|
|00000d50| 68 65 6c 6c 5f 53 74 72 | 69 6e 67 5f 55 43 28 41 |hell_Str|ing_UC(A|
|00000d60| 24 29 0d 05 aa 21 ea 41 | 25 2c 5a 25 3a 41 25 3d |$)...!.A|%,Z%:A%=|
|00000d70| 53 68 65 6c 6c 5f 53 74 | 72 69 6e 67 3a 24 41 25 |Shell_St|ring:$A%|
|00000d80| 3d 41 24 0d 05 b4 32 e3 | 5a 25 3d 30 b8 a9 41 24 |=A$...2.|Z%=0..A$|
|00000d90| 2d 31 3a e7 41 25 3f 5a | 25 3e 3d 97 22 61 22 e7 |-1:.A%?Z|%>=."a".|
|00000da0| 41 25 3f 5a 25 3c 3d 97 | 22 7a 22 20 41 25 3f 5a |A%?Z%<=.|"z" A%?Z|
|00000db0| 25 2d 3d 33 32 0d 05 be | 0a ed 3a 3d 24 41 25 0d |%-=32...|..:=$A%.|
|00000dc0| 05 c8 05 3a 0d 05 d2 42 | f4 20 46 75 6e 63 74 69 |...:...B|. Functi|
|00000dd0| 6f 6e 20 74 6f 20 73 70 | 6c 69 74 20 73 74 72 69 |on to sp|lit stri|
|00000de0| 6e 67 20 74 6f 20 61 72 | 72 61 79 20 6f 66 20 73 |ng to ar|ray of s|
|00000df0| 74 72 69 6e 67 73 20 61 | 6e 64 20 67 69 76 65 20 |trings a|nd give |
|00000e00| 6e 75 6d 62 65 72 0d 05 | dc 1b dd 20 a4 53 68 65 |number..|... .She|
|00000e10| 6c 6c 5f 41 72 72 61 79 | 28 41 24 28 29 2c 41 24 |ll_Array|(A$(),A$|
|00000e20| 29 0d 05 e6 3c e7 de 28 | 41 24 28 29 29 3c 3e 31 |)...<..(|A$())<>1|
|00000e30| 20 85 20 39 39 2c 22 57 | 72 6f 6e 67 20 73 69 7a | . 99,"W|rong siz|
|00000e40| 65 20 61 72 72 61 79 20 | 66 6f 72 20 53 68 65 6c |e array |for Shel|
|00000e50| 6c 5f 41 72 72 61 79 20 | 63 61 6c 6c 22 0d 05 f0 |l_Array |call"...|
|00000e60| 0a ea 41 25 2c 42 25 0d | 05 fa 14 41 25 3d 30 3a |..A%,B%.|...A%=0:|
|00000e70| 42 25 3d a7 41 24 2c 22 | 20 22 29 0d 06 04 0c c8 |B%=.A$,"| ").....|
|00000e80| 95 20 42 25 3c 3e 30 0d | 06 0e 27 41 25 2b 3d 31 |. B%<>0.|..'A%+=1|
|00000e90| 3a 41 24 28 41 25 29 3d | c0 41 24 2c 42 25 2d 31 |:A$(A%)=|.A$,B%-1|
|00000ea0| 29 3a 41 24 3d c1 41 24 | 2c 42 25 2b 31 29 0d 06 |):A$=.A$|,B%+1)..|
|00000eb0| 18 1d c8 95 20 c0 41 24 | 2c 31 29 3d 22 20 22 3a |.... .A$|,1)=" ":|
|00000ec0| 41 24 3d c1 41 24 2c 32 | 29 3a ce 0d 06 22 0f 42 |A$=.A$,2|):...".B|
|00000ed0| 25 3d a7 41 24 2c 22 20 | 22 29 0d 06 2c 05 ce 0d |%=.A$," |")..,...|
|00000ee0| 06 36 1b e7 41 24 3c 3e | 22 22 20 41 25 2b 3d 31 |.6..A$<>|"" A%+=1|
|00000ef0| 3a 41 24 28 41 25 29 3d | 41 24 0d 06 40 07 3d 41 |:A$(A%)=|A$..@.=A|
|00000f00| 25 0d ff                |                         |%..     |        |
+--------+-------------------------+-------------------------+--------+--------+